home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / boost4.arc / XLAT.PAS < prev   
Pascal/Delphi Source File  |  1988-10-23  |  2KB  |  73 lines

  1. Program xlat;
  2. uses BOSHARE, Crt;
  3.  
  4. var
  5.    s : String;
  6.  
  7. BEGIN
  8.  
  9.    Writeln('< Adventures with Boosters'' Translate function >');
  10.    Writeln;
  11.  
  12.    { change all occurrences of one character to another }
  13.    s := 'Lo and behold!  It looks like rain!';
  14.    writeln( s );
  15.    writeln( translate(s,'!','.','.'));
  16.    readln;
  17.  
  18.    s := 'Niagara-Falls,-New-York Green-Bay,-Wisconsin';
  19.    writeln( s );
  20.  
  21.    { insert CR/LF }
  22.    Insert ( #13#10, s, pos(' ',s)+1 );
  23.  
  24.    { change separation characters to blanks }
  25.    s :=  translate( s, '-',' ', ' ');
  26.    writeln( s );
  27.    readln;
  28.  
  29.    { remove CR/LF }
  30.    s := translate( s, #13#10,'',' ');
  31.    writeln( s );
  32.    readln;
  33.  
  34.    { re-order characters in a string of non-duplicates }
  35.    s := 'orlandB';
  36.    writeln(s);
  37.    s := translate ( s, s, 'Borland', ' ');
  38.    writeln( s );
  39.    readln;
  40.  
  41.    { using the Pad character }
  42.    writeln;
  43.    writeln( translate( 'aei','eia','12','$' ) );
  44.    readln;
  45.  
  46.    { emulating the strip function }
  47.    writeln;
  48.    s := '--------123456--------';
  49.    writeln(s);
  50.    writeln( translate( s,'-','',' ') );
  51.    readln;
  52.  
  53.    { null input table }
  54.    writeln;
  55.    s := 'liftoff';
  56.    Writeln(s);
  57.    writeln( translate( 'liftoff','','123',' ') );
  58.    readln;
  59.  
  60.    { null input table and null output table }
  61.    Writeln;
  62.    Writeln(s);
  63.    writeln( translate( s,'','',' ') );
  64.    readln;
  65.  
  66.    { using the Pad character }
  67.    writeln;
  68.    s := 'Dollars and Sense';
  69.    Writeln(s);
  70.    writeln( translate( s,'sS','$','$' ) );
  71.    readln;
  72.  
  73. END.